I think what you were trying to achive was something like this. I set it as variant so that you can easily add strings but if you wanted to define the size of the array you could just the same set it as a string.

Untested:
Sub HighlightCells()
    
Dim i As Long
Dim Fnd As String
Dim fCell As Range
Dim arr As Variant
Dim iArr As Integer

arr = Array("DVOK8467*", "DVOK8443*", "DVOK8720*", "5DVIA8797*", "DVIA8809*")

For iArr = LBound(arr) To UBound(arr)
    Set fCell = Range("A1")
        For i = 1 To WorksheetFunction.CountIf(ActiveSheet.UsedRange, Fnd)
            Set fCell = Cells.Find(What:=arr(iArr), After:=fCell, _
                LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, MatchCase:=False)
                
            If fCell Is Nothing Then
            MsgBox Fnd & " not on sheet !!"
            Exit Sub
            Else
             With fCell
                 .EntireRow.Interior.ColorIndex = 6
             End With
            End If
            
        Next i
Next iArr

End Sub
Note: I am not sure how the wild card is going to work in the array.