What about permuting your data?
And look in the help section under "Ticks" (Generalization and Extensions). It is possible to define a function for ticks, and this function could deliver text if you define it properly
ticks[min_, max_] :=
Table[If[EvenQ[i], {i, i, .06, Red}, {i, i, .02, Blue}], {i,
Ceiling[min], Floor[max], 1}]
Graphics[Circle[{0, 0}, 4], Axes -> True, Ticks -> ticks]
