kendin oraya bir şart koymuşsun zaten
If i mod 4 = 0 Then

End If

bu şartın arasına koy istediğin şeyi

yanlız i = i + 1 atamasını do until liste.eof un altına, if i mod 4 = 0 ın üstüne koy.