If your records have an index which gives you the range value:
dim sql as string
sql = "INSERT INTO tbOutput SELECT tbInput.* FROM tbInput WHERE [Index] >" & 8000 & " And [Index]<=" & 15000"
currentdb.execute sql
If the Index has some known range, you could modify the above sql accordingly.
If your records do not have an index which gives the range, one kludgy method is:
DIM DAO.database
dim rsInput as dao.recordset
dim rsOutput as dao.recordset
set db=currentdb
rsInput - db.openrecord("tbInputTable",dbopensnapshot)
rsOutput - db.openrecord("tbOutputTable",dbopendynaset)
'skip first 7999 records
rsInput.move(7999)
dim ij as integer
'copy next 8000 records
for ij=1 to 7000
rsInput.movenext
rsOutput.Addnew
dim jk as integer
dim nFields as integer
nFields='an integer equaling the no. of fields being copied
for jk = 1 to nFields
rsOutput!fields(jk-1) = rsInput!fields(jk-1)
next
rsOutput.Update
next