Hacer pausa cada x cantidad de registros utilizando un FOR

[delorenzis]

Hola amigos, les cuento un poco.. tengo que agregar unos 200.000 registros a la base de datos acces.
Lo que necesito es hacer una Pausa dentro del FOR cada cierta cantidad de registros. es decir,

Si son 200.000 registros a recorrer, pues que cada 10.000 registros recorridos con el FOR haga una pausa de 5 seg puede ser.

Tengo esta funcion pero no sabria como aplicarla para q se detecga el FOR cada x cantidad de registros recorridos.

<%
Sub Pause(intSeconds)
startTime = Time()
Do Until DateDiff("s", startTime, Time(), 0, 0) > intSeconds
Loop
End Sub
%>

Gracias.