How to work with hyperlink index

Hi. In each cell in column A ("A1:A50") there is a hyperlink. The macro below will open these hyperlinks simultaneously. I want the macro to open only 5 hyperlinks at a time, how would you do it?

Public Sub search()
With Worksheets("1")
Dim CompName As Range
Set CompName = .Range("a1:a" & .UsedRange.Rows.Count)
Dim CompNumber As Integer, CompRank As Integer
CompRank = .UsedRange.Rows.Count
For CompNumber = 1 To CompRank
Worksheets("1").Range("CompName").Hyperlinks(CompNumber).Follow NewWindow:=True
Next CompRank
End With
End Sub