Claro, no tienes la tabla y el operador mod, te regresa el residuo de una división, por lo tanto, me parece que tendrías que evaluar cuando el residuo sea = 0 no?
Código:
<table>
<%
x = 1
If x MOD 3 = 0 Then
Response.Write "</tr><tr>"
End If
x = x+1
CuantosRegistros=CuantosRegistros+1
lobjRst.MoveNext
loop
lobjRst.Close
%>
<table>
A ver que tal...