digit = {0.2, 0.9, 0.6, 0.6, 0.7, 0.4, 0.3, 0.2};
SequenceSplit[digit, {_?(# <= 0.5 &)}]
{{0.9, 0.6, 0.6, 0.7}}
This example is quite small. Consider:
SeedRandom[4];
alist = Round[RandomReal[{1, 0}, 50], 0.1]
{0.7, 0.4, 0.4, 0.9, 0.2, 0.3, 0.9, 0.6, 0.1, 0.7, 0.2, 0.8, 0.1,
0.8, 0.3, 0.6, 0.8, 0.7, 0.4, 0.6, 0.5, 0.2, 0.2, 0.2, 0.2, 0.3, 0.2,
0.6, 0.3, 0.9, 0., 0.9, 0.3, 0.7, 0.6, 0.2, 0.5, 0.9, 0.6, 0.8, 0.5,
0.9, 0.7, 0.1, 0.7, 1., 0.8, 0.5, 0.7, 0.1}
SequenceSplit[alist, {_?(# <= 0.5 &)}]
Another solution is possible using SequenceCases
:
SequenceCases[alist, { __?(# > 0.5 &)}]
If you have difficulty counting the length of sublists in the result below, please let me know.
Result
{{0.7}, {0.9}, {0.9, 0.6}, {0.7}, {0.8}, {0.8}, {0.6, 0.8,
0.7}, {0.6}, {0.6}, {0.9}, {0.9}, {0.7, 0.6}, {0.9, 0.6, 0.8}, {0.9,
0.7}, {0.7, 1., 0.8}, {0.7}}
For further study:
Visualizing runs of two or more items that match the pattern, along with their lengths:
SequenceReplace[alist,
k : { Repeated[_, {2, ∞}]?(# > 0.5 &)} :>
{
Style[Framed[Length@k], Red],
Style[Framed[k, Background -> Lighter@Lighter@Yellow]]
}
]

digit = {0.2, 0.6, 0.6, 0.1, 0.7, 0.7, 0.7, 0.1}
? $\endgroup$