After alot of search and tries,I could solve it
For j = 2 To 20
     Text = "a[aria-label='Go to next page, page " & j & "']"
     If Not ch.IsElementPresent(FindBy.Css(Text), 1000) Then
        GoTo err:
        Else
        ch.FindElementByCss(Text).Click
      End If
Next j