macro to export 2 worksheets to new workbook, do until end

I have a macro that starts at worksheet 4 and exports it to a new workbook and saves it in the location listed below.
I would like to modify it so that it take worksheet 5 and 6 and exports both into a new workbook, then 7 & 8, 9 & 10, until it get to the last worksheet.

any suggestions?


Dim i As Long
Dim NewWks As Worksheet


For i = 4 To ActiveWorkbook.Worksheets.Count
Sheets(i).Copy 'to new workbook
Set NewWks = ActiveSheet
With NewWks.Parent
Application.DisplayAlerts = False
.Saveas Filename:="F:\Macros\" & NewWks.Name & ".xls", FileFormat:=56
Application.DisplayAlerts = True
.Close SaveChanges:=False
End With
Next i
MsgBox "Done!"