More than 3 formatting conditions - select case?

Sub xformat()

    Do While ActiveCell.Value <> ""
        
        If ActiveCell.Value = 1 Then
               
                Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 13)).Interior.ColorIndex = 3
        ElseIf ActiveCell.Value = 2 Then
              Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 13)).Interior.ColorIndex = 8
        ElseIf ActiveCell.Value = 3 Then
              Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 13)).Interior.ColorIndex = 4
        ElseIf ActiveCell.Value = 5 Then
              Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 13)).Interior.ColorIndex = 46
        Else
           ActiveCell.Interior.ColorIndex = xlNone
        End If
        ActiveCell.Offset(1, 0).Activate
     Loop
     
End Sub