yan yana sıralamada son veri hatası

<table width="98%" cellspacing="0" cellpadding="0">
<tr>
<td>
<% Set kd = Server.CreateObject("ADODB.RecordSet")
kd.Open "SELECT TOP 8 * FROM tblhaberler ORDER BY puan/oy_sayisi DESC, haberID ASC",adoCon, 1, 3 %><table cellpadding="0" cellspacing="0" width="100%">
<tr>
<% for i = 1 to kd.recordcount %>
<td align="center" class="s7"><img src="<%=kd("Resim")%>"></td>
<%If i mod 4 = 0 Then
Response.Write "</tr><tr>"
End If
kd.movenext
next
kd.Close %>

</tr>
</table>
</td>
</tr>
</table>

yukardaki kodu kullanarak verileri yan yana 4 erli olarak 2 sıra halinde yayınlıyorum benim sorum bu döngü 8 in katı olduğunda sorunsuz çalışıor fakat 8 in katı olmadığında mesela 6 veri olduğunda döngünün sonunda hata veriyor bu hatayı nasıl önlerim veya başka bi kod varmı bununla ilgili ?

ne hatası veriyor ?

4=0 yerine 4=1 yaparsan düzgün çalışır.